home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-10-26 | 583 b | 34 lines | [TEXT/ScoM] |
- ;; Using virtual channels
- ;; Max channels: 256
-
- (def-orchestra 'orchestra
- all-instruments (piano synth bass)
- )
-
- ; Here the channels are set up manually
-
- (def-section sect-a
- default
- zone '(1/1)
- tonality (activate-tonality (major c 4))
- length '(1/16)
- velocity '(64)
- symbol '(a b c)
- piano
- channel '(1 2 3) ; some channel and program scrolls
- program '(1 3 5 6)
- synth
- channel 17 ; second port channel 1
- bass
- channel 33
- )
-
- (midiport :printer)
-
- (def-tempo 120)
-
- (play-file-p "test"
- all-instruments '(sect-a)
- )
-
-